<!--Busca de produtos -->
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr> 
	<td width="100%" height="23" background="<%=dirlingua%>/imagens/menu_esq_top.gif" align="center"><font color="#FFFFFF"><strong>BUSCA DE PRODUTOS</strong></font> </td>
</tr>
<tr>
	<td background="<%=dirlingua%>/imagens/menu_esq_fundo.gif"> <BR>
	<!--- start SEARCH --->
	<TABLE width="100%" border=0 align="center" cellPadding=2 cellSpacing=0>
		<FORM style="DISPLAY: inline" name=newsearch action=pesquisa.asp method=get>
			<TR>
				<td colspan=2> <div align="left">
					<input type=text name=pesq value="<%= request.querystring("pesq") %>" size=23 style=font-size:11px;font-family:<%=fonte%>;>
					<INPUT class=searchforms type=image alt="Pesquisar" src="<%=dirlingua%>/imagens/botao_pesquisar.gif" onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg21%>';return true;" align="absmiddle"></div> 
				</td>
			</tr>
			<tr>
				<td>
				<div align="right">
				<select name="cat" style="font-size:11px;font-family:<%=fonte%>; width:100%;">
				<option value=todos><%=strLg15%> </option>
				<% 
				
				Set cat = abredb.Execute("SELECT * FROM sessoes WHERE ver = 's' ORDER by nome;")
				While Not cat.EOF 
				Response.Write "<option value=princ"&cat("id")&" style=color:#808080;>"&CHR(187)&"&nbsp;"&left(cat("nome"),30) &"</option>"&VBCRlf 
						SQL = "SELECT C.idcategoria, C.nome FROM categoria as c ,sessoes as s  WHERE s.id = c.idsessao and c.idsessao = "&cat("id")&" AND C.ver = 's' ORDER by c.nome"
						Set scatDir = abredb.Execute(SQL)
							While Not scatDir.EOF
								if not (Lcase(scatDir("nome")) = "todos") then
								Response.Write "<option value="&scatDir("idcategoria")&">&nbsp;&nbsp; " &CHR(149)&"&nbsp;" & left(scatDir("nome"),27)&"</option>"&VBCRlf 
								end if
								scatDir.MoveNext
							Wend
				cat.MoveNext
				Wend
				Response.Write "</select>"
				%>		   
			   </font>
			   </div>
			</td>
		</tr>
	</FORM>
	</TABLE>
	<!--- end SEARCH --->
</td>
</tr>
<tr> 
	<td><img src="<%=dirlingua%>/imagens/menu_esq_fim.gif" width="184" height="6"></td>
</tr>			
</table>
<!--Fim da busca de produtos-->